home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / POLY.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  351 b   |  15 lines
  1.  
  2. *EVAL POLYNOMIAL
  3. *X IS VAR CONTAINING A VALUE
  4. *T IS AN EMPTY ARRAY THAT GETS SET TO
  5. *      1 X X**2 X**3 ... X**N
  6. *A IS THE COEFFICIENT ARRAY
  7. *L IS THE POLY ORDER
  8.  
  9.        COPY MACROS.POWERS
  10.        COPY MACROS.DOTP
  11.  
  12. POLY   $MACRO            X,T,A,L
  13.        POWERS            :X:,:T:,:L:
  14.        DOTP              :T:,:A:,:L:+1
  15.        $END